COMMENT ⊗   VALID 00018 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00006 00003
C00010 00004
C00014 00005	cmchar "Blank-space sign"
C00018 00006
C00023 00007
C00027 00008
C00031 00009
C00038 00010
C00042 00011
C00047 00012
C00051 00013
C00056 00014
C00059 00015
C00062 00016
C00066 00017
C00067 00018
C00072 ENDMK
C⊗;
cmchar "Blank-space sign";
beginchar(oct"040",9u#,bar_height#,.5desc_depth#); less_rounded;
italcorr bar_height#*slant+.25u#;
adjust_fit(0,0);
numeric thin_vair#; thin_vair#=.7vair#; define_whole_blacker_pixels(thin_vair);
forsuffixes $=1,2,3,4: penpos$(thin_vair,0); endfor
penpos0(thin_vair,90); x0=.5w; y0l=round(-d-.5thin_vair);
x1=x2; x3=x4=w-x1; lft x1l=round .75u;
y1=y4=h; y2=y3=y0;
fill z1l---z2l...(x2,y0l)---(x3,y0l)...z3r---z4r
 ..z4l---(x3l,y0r)--(x2r,y0r)---z1r..cycle;	% the stroke
penlabels(0,1,2,3,4); endchar;